﻿
Partial Class index_A
    Inherits System.Web.UI.Page
    Function getdj(ByVal shopxinyong)
        Dim shopdengjiB, shopdengjipic
        If shopxinyong >= 4 And shopxinyong <= 10 Then
            shopdengjiB = "一星"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_red_1.gif"
        End If
        If shopxinyong >= 11 And shopxinyong <= 40 Then
            shopdengjiB = "双星"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_red_2.gif"
        End If
        If shopxinyong >= 41 And shopxinyong <= 90 Then
            shopdengjiB = "三星"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_red_3.gif"
        End If
        If shopxinyong >= 91 And shopxinyong <= 150 Then
            shopdengjiB = "四星"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_red_4.gif"
        End If
        If shopxinyong >= 151 And shopxinyong <= 250 Then
            shopdengjiB = "五星"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_red_5.gif"
        End If
        If shopxinyong >= 251 And shopxinyong <= 500 Then
            shopdengjiB = "一钻"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_blue_1.gif"
        End If
        If shopxinyong >= 501 And shopxinyong <= 1000 Then
            shopdengjiB = "双钻"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_blue_2.gif"
        End If
        If shopxinyong >= 1001 And shopxinyong <= 2000 Then
            shopdengjiB = "三钻"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_blue_3.gif"
        End If
        If shopxinyong >= 2001 And shopxinyong <= 5000 Then
            shopdengjiB = "四钻"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_blue_4.gif"
        End If
        If shopxinyong >= 5001 And shopxinyong <= 10000 Then
            shopdengjiB = "五钻"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_blue_5.gif"
        End If
        If shopxinyong >= 10001 And shopxinyong <= 20000 Then
            shopdengjiB = "一皇冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_cap_1.gif"
        End If
        If shopxinyong >= 20001 And shopxinyong <= 50000 Then
            shopdengjiB = "双皇冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_cap_2.gif"
        End If
        If shopxinyong >= 50001 And shopxinyong <= 100000 Then
            shopdengjiB = "三皇冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_cap_3.gif"
        End If
        If shopxinyong >= 100001 And shopxinyong <= 200000 Then
            shopdengjiB = "四皇冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_cap_4.gif"
        End If
        If shopxinyong >= 200001 And shopxinyong <= 500000 Then
            shopdengjiB = "五皇冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_cap_5.gif"
        End If
        If shopxinyong >= 500001 And shopxinyong <= 1000000 Then
            shopdengjiB = "一金冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_crown_1.gif"
        End If
        If shopxinyong >= 1000001 And shopxinyong <= 2000000 Then
            shopdengjiB = "双金冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_crown_2.gif"
        End If
        If shopxinyong >= 2000001 And shopxinyong <= 5000000 Then
            shopdengjiB = "三金冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_crown_3.gif"
        End If
        If shopxinyong >= 5000001 And shopxinyong <= 10000000 Then
            shopdengjiB = "四金冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_crown_4.gif"
        End If
        If shopxinyong > 10000000 Then
            shopdengjiB = "五金冠"
            shopdengjipic = "http://pics.taobaocdn.com/newrank/s_crown_5.gif"
        End If
        getdj = shopdengjiB & "," & shopdengjipic
    End Function



End Class
